home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / simple_str.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  4.3 KB  |  235 lines
  1. ;
  2. ; simple_string.s -- an ACE linked library module: simple string functions.
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 19th March 1994
  21. ;
  22. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  23. ;
  24. ; a4,a5 are used by link/unlk.
  25. ; a6 is library base holder.
  26. ; a7 is stack pointer. 
  27. ; d7 is used for array index calculations.
  28. ;
  29.  
  30.        ; simple string functions
  31.        xdef      _strcpy
  32.        xdef      _strcat
  33.        xdef      _strlen
  34.     xdef    _strcmp
  35.        xdef      _streq
  36.        xdef      _strne
  37.        xdef      _strgt
  38.        xdef      _strlt
  39.        xdef      _strge
  40.        xdef      _strle
  41.        xdef      _asc
  42.        xdef      _chrstring
  43.  
  44.     SECTION string_code,CODE
  45.  
  46. ;*** SIMPLE STRING FUNCTIONS ***
  47.  
  48. ;
  49. ; copy a source string (a1) to destination string (a0)
  50. ;
  51. _strcpy:
  52.         cmp.b     #0,(a1)
  53.         beq.s   _quitstrcpy  ; source EOS?
  54.         move.b    (a1)+,(a0)+  ; copy from source to dest
  55.         bra.s     _strcpy  
  56. _quitstrcpy: 
  57.         move.b (a1),(a0)    ; copy the EOS marker!
  58.         rts
  59.  
  60. ;
  61. ; concatenate two strings (source = a1, dest = a0)
  62. ;
  63. _strcat:
  64. _findeos:
  65.         cmp.b     #0,(a0)+     ; found dest EOS?
  66.         bne.s   _findeos
  67.         subq      #1,a0        ; backup to EOS
  68. _concat:
  69.         cmp.b     #0,(a1)
  70.         beq.s   _quitstrcat  ; source EOS?
  71.         move.b    (a1)+,(a0)+  ; copy from source to dest
  72.         bra.s   _concat
  73. _quitstrcat: 
  74.         move.b (a1),(a0)    ; copy the EOS marker!
  75.         rts
  76.  
  77. ;
  78. ; find the length of the string pointed to by a2. d0=length (LONG).
  79. ;
  80. _strlen:
  81.     moveq    #0,d0
  82. _strlenloop:
  83.     cmpi.b    #0,(a2)+    
  84.     beq.s    _strlenexit
  85.     addq    #1,d0
  86.     bra.s    _strlenloop
  87. _strlenexit:
  88.     rts
  89.     
  90. ;
  91. ; - lexicographical comparison of two strings. a0=str1; a1=str2.
  92. ; - returns a value in d0 of (a0)-(a1) where (a0)<>(a1) or 0 if EOS reached.
  93. ;   (See "Amiga C for Beginners", pp 154,155, Abacus books)
  94. ;
  95. _strcmp:
  96.     move.b    (a0),d0
  97.     move.b    (a1),d1
  98.     cmp.b    d0,d1
  99.     bne.s    _strcmpne    ; (a0)<>(a1)
  100.  
  101.     cmpi.b    #0,(a0)        ; EOS?
  102.     beq.s    _strcmpeq
  103.     
  104.     addq    #1,a0        ; a0++
  105.     addq    #1,a1        ; a1++
  106.     
  107.     bra.s    _strcmp
  108.  
  109. _strcmpeq:
  110.     move.b    #0,d0        ; (a0)=(a1)
  111.     rts    
  112.     
  113. _strcmpne:
  114.     move.b    (a0),d0
  115.     sub.b    (a1),d0        ; d0=(a0)-(a1)
  116.     rts
  117.  
  118. ;
  119. ; test for string equivalence [str1 = str2]. a0=str1; a1=str2.
  120. ;
  121. _streq:
  122.     jsr    _strcmp
  123.     cmp.b    #0,d0
  124.     beq.s    _streqT
  125.  
  126.     moveq    #0,d0        ; str1<>str2
  127.     rts
  128.  
  129. _streqT:
  130.     moveq    #-1,d0        ; str1=str2
  131.     rts
  132.         
  133. ;
  134. ; tests for string inequality. a0=str1; a1=str2.
  135. ; d0 contains boolean result.
  136. ;
  137. _strne:
  138.     jsr    _strcmp
  139.     cmp.b    #0,d0
  140.     bne.s    _strneT
  141.  
  142.     moveq    #0,d0        ; str1=str2
  143.     rts
  144.  
  145. _strneT:
  146.     moveq    #-1,d0        ; str1<>str2
  147.     rts
  148.  
  149. ;
  150. ; tests for str1 > str2. a0=str1; a1=str2.
  151. ; d0 contains boolean result.
  152. ;
  153. _strgt:
  154.     jsr    _strcmp
  155.     cmp.b    #0,d0
  156.     bgt.s    _strgtT
  157.  
  158.     moveq    #0,d0        ; str1<=str2
  159.     rts
  160.  
  161. _strgtT:
  162.     moveq    #-1,d0        ; str1>str2
  163.     rts
  164.     
  165. ;
  166. ; tests for str1 < str2. a0=str1; a1=str2.
  167. ; d0 contains boolean result.
  168. ;
  169. _strlt:
  170.     jsr    _strcmp
  171.     cmp.b    #0,d0
  172.     blt.s    _strltT
  173.  
  174.     moveq    #0,d0        ; str1>=str2
  175.     rts
  176.  
  177. _strltT:
  178.     moveq    #-1,d0        ; str1<str2
  179.     rts
  180.  
  181. ;
  182. ; tests for str1 >= str2. a0=str1; a1=str2.
  183. ; d0 contains boolean result.
  184. ;
  185. _strge:
  186.     jsr    _strcmp
  187.     cmp.b    #0,d0
  188.     bge.s    _strgeT
  189.  
  190.     moveq    #0,d0        ; str1<str2
  191.     rts
  192.  
  193. _strgeT:
  194.     moveq    #-1,d0        ; str1>=str2
  195.     rts
  196.  
  197. ;
  198. ; tests for str1 <= str2. a0=str1; a1=str2.
  199. ; d0 contains boolean result.
  200. ;
  201. _strle:
  202.     jsr    _strcmp
  203.     cmp.b    #0,d0
  204.     ble.s    _strleT
  205.  
  206.     moveq    #0,d0        ; str1>str2
  207.     rts
  208.  
  209. _strleT:
  210.     moveq    #-1,d0        ; str1<=str2
  211.     rts
  212.  
  213. ;
  214. ; CHR$ function. Assumes ASCII value in d0 and target string address in a0.
  215. ;
  216. _chrstring:
  217.        move.b d0,(a0)+
  218.        move.b #0,(a0)
  219.        rts
  220.  
  221. ;
  222. ; returns the ASCII value (in d0) of the first character pointed to by a2.
  223. ; (returns SHORT) 
  224. ;
  225. _asc:
  226.     move.b    (a2),d0
  227.     ext.w    d0
  228.        cmpi.w    #0,d0
  229.     bge.s    _exit_asc
  230.     add.w    #256,d0        ; make positive if necessary
  231. _exit_asc:        
  232.     rts
  233.  
  234.     END
  235.